home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol136 / checkcrt.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-15  |  2.1 KB  |  44 lines
  1. 4000 COLOR 7,0: REM  ***************************************************************************************************
  2. 4010 REM      'CHECKCRT' SUBROUTINE TO CREATE FILE #1 PAYEE NAME AND ADDRESS RECORDS AND FILE #2 PAYEE CHECK RECORDS
  3. 4020 REM  **************************************************************************************************************
  4. 4030 CLS
  5. 4040 LOCATE 12,1
  6. 4050 PRINT IN$;"  Payee Files are created on PAMCHECK"
  7. 4060 GOSUB 270   'OPEN PAYEE FILES
  8. 4070 CLS
  9. 4080 PRINT IN$;"  This program run will destroy"
  10. 4090 PRINT IN$;"  any previously created Payee Files"
  11. 4100 PRINT: PRINT IN$;: COLOR 0,7: PRINT "  Are you sure you want to continue?": COLOR 7,0
  12. 4110 PRINT IN$;: COLOR 0,7: PRINT "  Reply Y or N ";SPC(21): BEEP
  13. 4120 B$ = INKEY$: IF B$ = "" THEN 4120
  14. 4130 PRINT B$: COLOR 7,0
  15. 4140 IF B$="Y" OR B$="y" THEN GOTO 4200
  16. 4150 IF B$="N" OR B$="n" THEN GOTO 4380  'RETURN TO UTILITY JOB CHOICES MENU
  17. 4160 COLOR 31,0: PRINT IN$;"  I need a Y or N, try again ";:  GOTO 4120
  18. 4170 REM  **************************************************************************************************************
  19. 4180 REM                      THE RECORD TYPE FIELD OF BLANK RECORDS IS SET TO ASCII(255)
  20. 4190 REM  **************************************************************************************************************
  21. 4200 LSET F1$=CHR$(255)
  22. 4210 LSET F2$=CHR$(255)
  23. 4220 FOR I=1 TO M1%
  24. 4230     PUT #1,I
  25. 4240 NEXT I
  26. 4250 REM  **************************************************************************************************************
  27. 4260 REM    CREATE FILE #2 - USED FOR RECORD OF CHECKS TO PAYEES AND BANK TRANSACTIONS (DEPOSITS/INTEREST/WITHDRAWALS
  28. 4270 REM  **************************************************************************************************************
  29. 4280 FOR K = 1 TO 8
  30. 4290     CHEK1%(K) = 0
  31. 4300     CHEK2$(K) = SPACE$(1)
  32. 4310     CHEK3$(K) = SPACE$(8)
  33. 4320     CHEK4%(K) = 0
  34. 4330 NEXT K
  35. 4340 GOSUB 290
  36. 4350 FOR I=1 TO M2%
  37. 4360     PUT #2,I
  38. 4370 NEXT I
  39. 4380 CLOSE #1,#2
  40. 4390 GOTO 260  'RETURN TO UTILITY JOB CHOICES MENU
  41. 9000 GOTO 9000  'CHAIN MERGE AREA LAST STATEMENT
  42. EXT I
  43. 4380 CLOSE #1,#2
  44.